home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / cdrom / yacdp1.2.lha / YACDP 1.2 / AREXX / FadeIn.yacdp < prev    next >
Encoding:
Text File  |  1994-12-05  |  1014 b   |  43 lines
  1. /* $VER: 1.2 © 1994 by Frank Würkner. Fade volume up to maximum.           */
  2.  
  3. SIGNAL ON SYNTAX                            /* check syntax                */
  4. SIGNAL ON ERROR                             /* check if command succeeds   */
  5. OPTIONS FAILAT 6                            /* ignore warnings             */
  6. ADDRESS 'YACDP'                             /* send to YACDP               */
  7.  
  8. /* -------------------------- BEGIN OF YOUR CODE ------------------------- */
  9.  
  10. 'GETVAR STATUS'
  11.  
  12. if (STATUS > 2) then do
  13.   if (STATUS = 4) then
  14.     'PLAY'
  15.   'GETVAR VIASCSI'
  16.   if (VIASCSI = 0) then do
  17.     'GETVAR CDROMVOL VOL'
  18.     MAXVOL=255
  19.     end
  20.   else do
  21.     'GETVAR AMIVOL VOL'
  22.     MAXVOL=64
  23.     end
  24.  
  25.   do i=VOL to MAXVOL
  26.     if (VIASCSI = 0) then
  27.       'PUTVAR CDROMVOL' i
  28.     else
  29.       'PUTVAR AMIVOL' i
  30.   end
  31. end
  32.  
  33. /* --------------------------- END OF YOUR CODE -------------------------- */
  34. EXIT
  35.  
  36. SYNTAX:
  37. SAY "AREXX error at line" SIGL ":" ERRORTEXT(RC)
  38. EXIT
  39.  
  40. ERROR:
  41. SAY "YACDP error at line" SIGL ":" ERR
  42. EXIT 
  43.